home *** CD-ROM | disk | FTP | other *** search
- inherited frmPingMachine: TfrmPingMachine
- Left = 418
- Top = 140
- HelpContext = 71
- Caption = 'Ping Machine'
- OldCreateOrder = True
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- inherited pnlTop: TPanel
- inherited lblCommandName: TLabel
- Caption = 'Ping Machine'
- end
- inherited memActionDesc: TMemo
- Lines.Strings = (
-
- 'Sends a "ping" request to a computer. Ping is used to test ser' +
- 'ver response times '
-
- 'on a TCP/IP network. If the computer does not respond within th' +
- 'e time specified, '
- 'the step generates an error.')
- end
- end
- inherited pnlCenter: TPanel
- inherited pgcControlPage: TPageControl
- inherited tbsAM5Main: TTabSheet
- object Label1: TLabel
- Left = 10
- Top = 16
- Width = 78
- Height = 13
- Caption = '&Hostname or IP:'
- FocusControl = edtHostName
- end
- object Label2: TLabel
- Left = 10
- Top = 65
- Width = 89
- Height = 13
- Caption = '&Time to wait (sec):'
- FocusControl = edtTimeout
- end
- object Label3: TLabel
- Left = 10
- Top = 114
- Width = 237
- Height = 13
- Caption = 'Populate &variable with relay time (in milliseconds):'
- FocusControl = edtVarName
- end
- object lblHostIP: TLabel
- Left = 10
- Top = 158
- Width = 164
- Height = 13
- Caption = 'Populate &variable with IP address.'
- FocusControl = cbxIPAddressReturn
- Visible = False
- end
- object edtHostName: TEdit
- Left = 10
- Top = 32
- Width = 449
- Height = 21
- TabOrder = 0
- end
- object edtTimeout: TEdit
- Left = 10
- Top = 81
- Width = 112
- Height = 21
- TabOrder = 1
- Text = '10'
- end
- object edtVarName: TAM5VarListComboBox
- Left = 10
- Top = 130
- Width = 224
- Height = 21
- ItemHeight = 13
- TabOrder = 2
- end
- object cbxIPAddressReturn: TAM5VarListComboBox
- Left = 10
- Top = 174
- Width = 224
- Height = 21
- ItemHeight = 13
- TabOrder = 3
- Visible = False
- end
- end
- end
- end
- inherited taclKeyboardTrap: TActionList
- Left = 200
- end
- inherited dxSIBarManager: TdxBarManager
- Categories.ItemsVisibles = (
- 2)
- Categories.Visibles = (
- True)
- PopupMenuLinks = <
- item
- Control = lsvAM5Errors
- PopupMenu = dxCheckPopup
- end>
- DockControlHeights = (
- 0
- 0
- 0
- 0)
- end
- inherited dxCheckPopup: TdxBarPopupMenu
- ItemLinks = <
- item
- Item = itmCheckAllErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end
- item
- Item = itmCheckNoErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end>
- end
- inherited IvTranslator1: TIvTranslator
- Left = 232
- Top = 348
- end
- end
-